home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
netz
/
ums
/
ums-beta
/
bin
/
umscopy
< prev
next >
Wrap
AmigaDOS Script File
|
1995-07-09
|
513b
|
29 lines
.key file/A,msgid/A,umsname/A,resultvar/A
.bra {
.ket }
failat 10
set destdir `getenv umsfiles.{umsname}`
if not `echo len 1 $destdir` eq :
if not `echo len 1 $destdir` eq /
set destdir $destdir/
endif
endif
set newfile `list quick lformat "$destdir%n" {file}`
if exists $newfile
set i 1
lab loop
if exists $newfile.$i
set i `eval $i + 1`
skip loop back
endif
set newfile $newfile.$i
endif
echo "copying {file} to $newfile .."
copy {file} $newfile clone
setenv {resultvar} $newfile